home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-04-08 | 1.2 KB | 48 lines | [TEXT/MPS ] |
- ;
- ; File: UTILHead.a
- ;
- ; Contains: The header for a LaserWriter Font Utility UTIL resource
- ;
- ; Written by: Bryan K. Ressler (Beaker)
- ;
- ; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
- ;
- ; Change History (most recent first):
- ;
- ; 6/19/90 bkr changed imported names to all uppercase (a la Pascal)
- ; 6/13/90 bkr added reference to UtilDelta routine
- ; 6/1/90 bkr original version
- ;
- ; To Do:
- ;
-
- case obj
-
- main
-
- UtilBegin
- dc.w 1 ; the version
- dc.w ResSpace ; our resource space starts here
- dc.l UtilOpen - UtilBegin ; the offset to the beginning of the Open routine
- dc.l UtilDelta - UtilBegin ; the offset to the beginning of the Delta routine
- dc.l UtilPrime - UtilBegin ; the offset to the beginning of the Prime routine
- dc.l UtilClose - UtilBegin ; the offset to the beginning of the Close routine
-
- UtilOpen
- import UTILITY_OPEN
- jmp UTILITY_OPEN ; call the actual Open routine, elsewhere
-
- UtilDelta
- import UTILITY_DELTA
- jmp UTILITY_DELTA ; call the actual Delta routine, elsewhere
-
- UtilPrime
- import UTILITY_PRIME
- jmp UTILITY_PRIME ; call the actual Prime routine, elsewhere
-
- UtilClose
- import UTILITY_CLOSE
- jmp UTILITY_CLOSE ; call the actual Close routine, elsewhere
-
- end
-